home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / ISTAR.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  1.3 KB  |  64 lines
  1. # iSTAR Internet PPP or SLIP login script 
  2. # Copyright 1995 Quarterdeck Corporation 
  3. # 5-9-95
  4. # 26-10-95 Changed script to work with Cisco Terminal Servers - Andrew Reynolds 
  5. # reynolds@batcomputer.nstn.ca
  6.      
  7. STRING username
  8. STRING password
  9. STRING IPaddress
  10. STRING framing
  11.      
  12. # TRACE ON
  13.      
  14. SetTimeout 60
  15.      
  16. # Get username from access method
  17. CfgGetValue "Username" username
  18. IF result = 0 THEN
  19. ABORT "Can't load Username from qdeck.ini" 
  20. ENDIF
  21.      
  22. # get password from access method
  23. CfgGetValue "Password" password
  24. IF result = 0 THEN
  25. ABORT "Can't load Password from qdeck.ini" 
  26. ENDIF
  27.      
  28. # get framing from access method
  29. CfgGetValue "Framing" framing
  30. IF result = 0 THEN
  31. ABORT "Can't load Framing (SLIP or PPP) from qdeck.ini" 
  32. ENDIF
  33.      
  34.      
  35. DELAY 2
  36. CommSend "%r"
  37. DELAY 2
  38. CommSend "%r"
  39. DELAY 2
  40.      
  41. CommWaitFor "sername:"
  42. CommSend username
  43. CommSend "%r"
  44.      
  45. CommWaitFor "assword:"
  46. CommSend password
  47. CommSend "%r"
  48.      
  49. # Check for end of Cisco command prompt 
  50.  
  51. CommWaitFor ">"
  52.      
  53. IF framing = "MPSLIP" THEN
  54. CommSend "slip%r"
  55. CommWaitFor "our address is"
  56. CommReadIPaddr IPAddress   # IP address should be next word 
  57. CfgSetValue "IPAddress" IPaddress   # store the IP address
  58. PRINT "IPAddress ="; IPAddress
  59. ELSE
  60. CommSend "ppp default%r"   #new ppp command line for Ciscos 
  61. ENDIF
  62.      
  63. END
  64.